﻿Imports System.Data
Imports System.Data.OleDb
Imports geraLaudosAutomatico.conexao
Imports System.Text


Public Class tipo_periciaDAO


    Dim sql As New StringBuilder
    Dim objConn As New conexao
    Dim i As Integer
    Dim tipo_pericia As New tipo_periciaVO
   

    Public Function getTipoPericias() As Generic.List(Of tipo_periciaVO)

        sql.Clear()
        sql.Append("SELECT * FROM TIPO_PERICIA WHERE STATUS=TRUE ORDER BY DESC_TIPO")

        Dim oReader As OleDbDataReader
        Dim lista As New Generic.List(Of tipo_periciaVO)
        Dim item As New tipo_periciaVO

        item.ID_TIPO = -1
        item.DESC_TIPO = "Selcione o tipo da perícia"
        lista.Add(item)

        Try
            Dim oComando As New OleDbCommand(sql.ToString, objConn.abreConexao)

            oReader = oComando.ExecuteReader

            While oReader.Read

                tipo_pericia = New tipo_periciaVO
                tipo_pericia.ID_TIPO = IIf((IsDBNull(oReader("ID_TIPO"))), Nothing, oReader("ID_TIPO"))
                tipo_pericia.DESC_TIPO = IIf((IsDBNull(oReader("DESC_TIPO"))), Nothing, oReader("DESC_TIPO"))
                tipo_pericia.STATUS = IIf((IsDBNull(oReader("STATUS"))), Nothing, oReader("STATUS"))
                tipo_pericia.PRAZO = IIf((IsDBNull(oReader("PRAZO"))), Nothing, oReader("PRAZO"))
                lista.Add(tipo_pericia)
            End While

            Return lista

        Catch ex As Exception

            Throw ex

        Finally

            objConn.fechaConexao()

        End Try

    End Function



    Public Function getTipoPericia(ByVal id_tipo As Integer) As tipo_periciaVO

        sql.Clear()
        sql.Append("SELECT * FROM TIPO_PERICIA WHERE ID_TIPO=" & id_tipo)

        Dim oReader As OleDbDataReader


        Try
            Dim oComando As New OleDbCommand(sql.ToString, objConn.abreConexao)

            oReader = oComando.ExecuteReader

            While oReader.Read
                tipo_pericia = New tipo_periciaVO
                tipo_pericia.ID_TIPO = oReader("ID_TIPO")
                tipo_pericia.DESC_TIPO = oReader("DESC_TIPO")
                tipo_pericia.STATUS = oReader("STATUS")
                tipo_pericia.PRAZO = oReader("PRAZO")
            End While

            Return tipo_pericia

        Catch ex As Exception

            Throw ex

        Finally

            objConn.fechaConexao()

        End Try

    End Function


End Class
